Számok eltárolása tömbbe, majd az elemek kiíratása (Tomb.pas) program Tomb; uses crt; var i,n:integer;     a:array [1..30] of integer; Egész típusú, a nevű, 30 elemű tömb deklarálása. BEGIN    write('n:=');    readln(n); Bekérjük a tömbelemek számát (természetesen ez csak kevesebb lehet, mint 30).    i:=1;    while(i<=n) do begin       write('a[',i,']:='); Kiíráskor vesszővel kapcsolhatjuk össze a kiírandó szöveget és változókat. Szöveg kiírásakor ügyeljünk az aposztrófok meglétére.       readln(a[i]); Beolvassuk a billentyűzetről az a nevű tömb i-edik elemét.       i:=i+1;       end;    i:=1; 1-re álltjuk a használt ciklusváltozó értékét.    while(i<=n) do begin A ciklus segítségével soronként kiírjuk a képernyőre az a tömb elemeit.       writeln(a[i]);       i:=i+1;       end; END.